home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / BINOPS.D < prev    next >
Encoding:
Modula Definition  |  1989-09-20  |  1.2 KB  |  43 lines
  1. DEFINITION MODULE BinOps;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. (* Folgende fünf Funktionen liefern den kleineren der beiden Werte *)
  6.  
  7. PROCEDURE LowerCard (a,b: CARDINAL): CARDINAL;
  8.  
  9. PROCEDURE LowerInt (a,b: INTEGER): INTEGER;
  10.  
  11. PROCEDURE LowerLCard (a,b: LONGCARD): LONGCARD;
  12.  
  13. PROCEDURE LowerLInt (a,b: LONGINT): LONGINT;
  14.  
  15. PROCEDURE LowerAddr (a,b: ADDRESS): ADDRESS;
  16.  
  17. (* Folgende fünf Funktionen liefern den größeren der beiden Werte *)
  18.  
  19. PROCEDURE HigherCard (a,b: CARDINAL): CARDINAL;
  20.  
  21. PROCEDURE HigherInt (a,b: INTEGER): INTEGER;
  22.  
  23. PROCEDURE HigherLCard (a,b: LONGCARD): LONGCARD;
  24.  
  25. PROCEDURE HigherLInt (a,b: LONGINT): LONGINT;
  26.  
  27. PROCEDURE HigherAddr (a,b: ADDRESS): ADDRESS;
  28.  
  29. (* Folg. fünf Funktionen liefern den Wert in 'a', wenn TRUE *)
  30. (* übergeben wird, sonst liefern sie den Wert in 'b'.       *)
  31.  
  32. PROCEDURE SwitchCard (condition: BOOLEAN; true, false: CARDINAL): CARDINAL;
  33.  
  34. PROCEDURE SwitchInt (condition: BOOLEAN; true, false: INTEGER): INTEGER;
  35.  
  36. PROCEDURE SwitchLCard (condition: BOOLEAN; true, false: LONGCARD): LONGCARD;
  37.  
  38. PROCEDURE SwitchLInt (condition: BOOLEAN; true, false: LONGINT): LONGINT;
  39.  
  40. PROCEDURE SwitchAddr (condition: BOOLEAN; true, false: ADDRESS): ADDRESS;
  41.  
  42. END BinOps.
  43.